Top 10k strings from World Soccer League (1989)(E&J Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /
Back to the directory listing
4 "2")+OSKL-
4 "14"+BOOK,
3 Y;". ";T$(((X-
3 X$>"9999999"
3 X$=S$(PLA):
3 TIME=TIME+
3 B(X)=B(X)-
3 ;" "
3 "10");" (";
3 "0";"DEFLECTION FROM ";S$(PLA),:
3 "0");" ";N$(
3 ".5");" ";N$(
2 X$=X$+",":
2 X$=T$(TM):
2 X$=T$(TEAM):
2 X$=P$(NO):
2 TMYX=TMYX-
2 TMYX=TEAM:
2 T$(TEAM)=X$:
2 R(X)=R(X)/
2 MAXLOAN=MAXLOAN-GET:
2 LOAN=LOAN+GET:
2 K$(NO)="1"
2 GET > MAXLOAN
2 D$(TM)=T$(TEAM)
2 CASH=CASH+
2 BOOK=BOOK+
2 B(X)=B(X)+
2 B(PLA)=B(PLA)+
2 A$=A$+" ":
2 ,PLA))=N(Z(3
2 ,PLA))=M(Z(3
2 "POSITION TO MOVE TO - ";
2 "PLAYER NUMBER TO MOVE - ";
2 "NEW NAME - ";
2 "CALCULATING LEAGUE TABLE...":
2 "7";"DIV ";DIV;
2 "6";"YOU CANNOT ALTER ANY MORE",:
2 "27";B(X);
2 "25";"WEEK ";WKS;
2 "21";P(X);
2 "2";N$(Q(X));
2 "16")+Y)=D$(Y):
2 "15"+BOOK,
2 "14"+BOOK)=X$:
2 "12");" MIN)",
2 "11"));")":
2 "11"));" MINS":
2 "10");R(X);(".00"
2 "10");"-";(I(X)-
2 "1";"NO NAME FORM PL GL P NAT":
2 "0";A$;" ARE IN POSSESSION",:
1 Z$=Z$+" REPLAY":
1 Z$=T$(((X-
1 Y;". ";T$((((X-
1 Y$=B$+" v "+A$:
1 Y$=B$+" v "+A$
1 Y$=A$+" v "+B$:
1 Y$=A$+" v "+B$
1 X;" ";N$(Q(X));" ";S$(X):
1 X(Y,X)=X(Y,X)-(DIFF-
1 X(Y,X)=X(Y,X)+((HS-AS)/
1 X(Y,X)=OS:
1 X(Y,X)=OS+(OS<1
1 X(WANT,X)=R(X)
1 X(Q(X),X)=S(X)
1 X$=X$+"S-Final"
1 X$=X$+"ROUND "+
1 X$=X$+"Q-Final"
1 X$=X$+"FINAL"
1 X$=T$(O1):
1 X$=S$(N1):
1 X$=M$(N1):
1 X$=K$(N1):
1 X$=G$(TEAM)
1 X$=G$(OPP+((DIV-
1 X$=F$(N1):
1 X$=D$(OPP):
1 X$=B$+" v "+A$:
1 X$=A$+" v "+B$:
1 X$="WORLD LEAGUE DIVISION "+
1 X$="WORLD CLUB CUP "
1 X$;" HAS BEEN SUSPENDED"''"FOR ";SPS;" GAME";"S"
1 X$;" HAS BEEN INJURED"''"AND WILL BE OUT FOR ";WKOUT;" WEEK";"S"
1 World Soccer League
1 WSL %
1 W(TMY)=W(TMY)+
1 W(OPP)=W(OPP)+
1 W(HTM)=W(HTM)+
1 W(ATM)=W(ATM)+
1 U(RNDE)=O1
1 U$(I)=U$(I+
1 TSK=TSK+R(X):
1 TRMA=TRMA+
1 TF=TF+R(Y):
1 TEAM=TEAM-
1 TEAM=TEAM+
1 T(N1)=T(N2):
1 T$(TEAM)=T$(X)
1 T$(NUMBER)=E$
1 T$(NUMBER)=D$(OPP)
1 Scott Gardner
1 SUBS=SUBS+
1 SQP=SQP+(Q(X)<5
1 SKL=R(NO):
1 SKL''"NATIONALITY","- ";I$:
1 SEAS=SEAS+
1 S(X)=S(X)-(DIFF-
1 S(X)=S(X)+((HS-AS)/
1 S(X)=R(X):
1 S(X)= SKL-(
1 S(NO)=X(Q(NO),NO)
1 S(N1)=S(N2):
1 S$(NO)="":
1 S$(N2)=X$:
1 S$(N1)=X$:
1 S$(N1)=S$(N2):
1 RNDE=RNDE+
1 R(X)=R(X)-(DIFF-
1 R(X)=R(X)+((HS-AS)/
1 R(NO)=S(NO):
1 R(NO)=R(NO)/
1 R(N1)=R(N2):
1 Q(X)=WANT:
1 Q(N1)=Q(N2):
1 PTS=(W(TMYX)*
1 PROG M
1 PRO=GATE+INTR-WG-GR-POL-REP:
1 PLYRS=PLYRS-
1 PLYRS=PLYRS+
1 PASS=PASS+
1 P(X)=P(X)+
1 P(N2)=P(N2)+
1 P(N1)=P(N2):
1 OS=S(X)+((
1 OPP=ABCDIK:
1 OPP=(O1-((O3-
1 O(X)=O(X)-
1 O(PLA)=WKOUT+1
1 O(N1)=O(N2):
1 NUMBER=TEAM
1 N(X)=N(X)+
1 N(PLA)=N(PLA)+T(
1 MIDP=MIDP+1
1 MAXLOAN=MAXLOAN+REP
1 MAXLOAN=MAXLOAN+GET:
1 M(PLA)=M(PLA)+T(
1 M(PLA)=M(PLA)+
1 M$(N2)=X$:
1 M$(N1)=M$(N2):
1 LOAN=LOAN-REP:
1 LOAN=LOAN-GET:
1 L(TMY)=L(TMY)+
1 L(OPP)=L(OPP)+
1 L(HTM)=L(HTM)+
1 L(ATM)=L(ATM)+
1 K(WKS)=ATT
1 K$(NO)="1":
1 K$(NO)=" ":
1 K$(N1)=K$(N2):
1 I(WKS)=(HS*
1 I$=G$(TM):
1 I$=G$(TEAM)
1 HS=(HTM-ATM)/
1 HM=HM+R(Y)
1 HD=HD+R(Y)
1 HAT=HAT+R(Y)
1 H$(HS)=S$(PLA):
1 GET=MAXLOAN
1 GET > LOAN
1 GET > CASH
1 G(PLA)=G(PLA)+
1 G(N1)=G(N2):
1 G$(TM)="U.K"
1 G$(TEAM)=X$:
1 G$(TEAM)="U.K"
1 G$(NUMBER)
1 F(TMY)=F(TMY)+HS:
1 F(Q)-A(Q) > F(Q1)-A(Q1)
1 F(Q)-A(Q) < F(Q1)-A(Q1)
1 F(Q) > F(Q1)
1 F(OPP)=F(OPP)+AS:
1 F(HTM)=F(HTM)+HS:
1 F(ATM)=F(ATM)+AS:
1 F$(X)=G$(TEAM):
1 F$(NO)="":
1 F$(N2)=X$:
1 F$(N1)=F$(N2):
1 DIVE=(DIV/
1 DEFP=DEFP+1
1 D(TMY)=D(TMY)+
1 D(OPP)=D(OPP)+
1 D(HTM)=D(HTM)+
1 D(ATM)=D(ATM)+
1 D$(Y)=T$(((X-
1 D$(Y)=G$(((X-
1 D$(X)=T$(((DIV*
1 D$(Q1)=T$(TEAM)
1 D$(OPP)=T$(TEAM)
1 D$(NUMBER-
1 D$(NUMBER)=E$
1 CASH=CASH-GET:
1 CASH=CASH-(FEE):
1 CASH=CASH+SS
1 CASH=CASH+SPL:
1 CASH=CASH+PRO:
1 CASH=CASH+GET:
1 CASH=CASH+GET
1 CASH=2000000
1 B(N1)=B(N2):
1 ATTP=ATTP+1
1 AS=(ATM-HTM)/
1 ALTER=ALTER+
1 ABCDIK=OPP:
1 A(TMY)=A(TMY)+AS:
1 A(OPP)=A(OPP)+HS
1 A(HTM)=A(HTM)+AS:
1 A(ATM)=A(ATM)+HS
1 ;" WORLD SOCCER LEAGUE "
1 ;" Now Loading "
1 ,PLA))=N(Z(2
1 ,PLA))=N(Z(1
1 ,PLA))=M(Z(2
1 ,PLA))=M(Z(1
1 ,PLA));".";:
1 +CotL-DS from orig tape
1 *(MAX-MIN)+MIN)*
1 *(MAX-MIN))+MIN:
1 )+D(Q)>(W(Q1)*3
1 )+D(Q)<(W(Q1)*3
1 (CASH*0.00323
1 ((((M(X)/(M(X)+N(X))+
1 'D$(ATM);" ";AS,D$(HTM);" ";HS
1 '''"UNFORTUNATELY, YOU ARE STILL IN"''"DEBT AND THE BANK WILL GIVE YOU"''"NO MORE. THE DIRECTORS HAVE"''"NO CHOICE BUT TO SACK YOU."
1 '''"SELECT A SKILL LEVEL (1-5)"''"(1 - EASIEST, 5 - HARDEST)"
1 '''"PROGRAM BY SCOTT GARDNER"''"GAME DESIGN BY SCOTT GARDNER"," & ALAN CLAYTON"''"
1 '''"DO YOU WISH TO BID FOR HIM (Y/N)"
1 '''"CURRENT LOAN","- `";LOAN''"REPAYMENTS/WEEK","- `";
1 '''"(1) EDIT PLAYER NAMES"''"(2) EDIT TEAM NAMES"''"(3) RETURN TO MAIN MENU"
1 ''"PRESS"''" G - GET A LOAN"'" R - REPAY LOAN"'" M - MAIN MENU"
1 ''"PRESS"''" C - CHANGE A NAME"''" M - MAIN MENU"
1 ''"MANAGER RATING - ";
1 '"YOU HAVE BEEN RELEGATED TO DIV ";DIV'':
1 '"YOU HAVE BEEN PROMOTED TO DIV ";DIV'':
1 '"POLICING COSTS";
1 '"PLAYERS/STAFF WAGES";
1 '"PLAYED";
1 '"LOAN REPAYMENTS";
1 '"GROUND UPKEEP";
1 '" (5) RETURN TO MAIN MENU"''"PRESS A NUMBER (1-5) NOW"
1 '" (";X;") ";N$(X):
1 "YOUR BANK LOAN HAS BEEN EXTENDED"''"BY `";GET:
1 "YOU'RE THROUGH TO THE NEXT ROUND":
1 "YOU HAVE WON THE CUP"'''"YOU GET `1000000 FROM THE"''"CUP SPONSORS":
1 "YOU HAVE BEEN INTO THE TRANSFER"''"MARKET THE MAXIMUM THREE TIMES"''"THIS WEEK.":
1 "YOU HAVE A FULL 18 MAN SQUAD":
1 "YOU CANNOT SELL ANYONE ELSE AS"''"F.I.F.A. SAY YOU MUST HAVE A"''"MINIMUM OF 14 PLAYERS IN YOUR"''"SQUAD.":
1 "YOU ARE OUT OF THE CUP"'''"YOU GET `";SPL;" FROM THE"''"CUP SPONSORS":
1 "WSL-SAVED"
1 "WHO TO TAKE OFF(1-11)";
1 "WHO TO BRING ON(12-13)";
1 "WHICH NUMBER - ";
1 "WHICH KIND OF PLAYER DO YOU WANT";':
1 "UNDER F.I.F.A. REGULATIONS, YOU"''"MUST PLAY AT LEAST ONE"''"MIDFIELDER.":
1 "UNDER F.I.F.A. REGULATIONS, YOU"''"MUST PLAY AT LEAST ONE DEFENDER.":
1 "UNDER F.I.F.A. REGULATIONS, YOU"''"MUST PLAY AT LEAST ONE ATTACKER.":
1 "SEASON TICKET SALES - `";SS'':
1 "RIAL","MARQUITO","LEBLONDE","HIDALGO","GENTO","GRILLO","SCHAFINO","MATEOS","KRESS","AUGUAS","PUSKAS","CZIBOR","KOCSIS","ALTAFINI","MAZZOLA","MILANIA","MANCIO","VASOVIC","GRACA","SORMANI","VAN DIJK","MULLER","ROTH","SIMONSEN","MAGATH","PRUZZO","KOGL","MADJER","JUARY","LACATUS"
1 "POSITION","- ";N$(WANT)''"NAME","- ";V$''"SELLING CLUB","- ";X$''"CURRENT FORM","- ";
1 "PLAYERS NUMBER - ";
1 "NUMBER TO CHANGE - ";
1 "NATIONALITY - ";
1 "NAPOLI","AC MILAN","RL MADRID","BYN MUNICH","SV HAMBURG","MARSEILLE","LIVERPOOL","ARSENAL","RANGERS","PSV ENDHVN","D. DRESDEN","MECHELEN","RED STAR B","BOCA JNRS","SAO PAULO","EL-HARRACH"
1 "MIDFIELD";
1 "ITA","ITA","SPA","W.G","W.G","FRA","U.K","U.K","U.K","S.U","E.G","RUM","SWE","ARG","BRA","MOR"
1 "ITA","ITA","SPA","W.G","W.G","FRA","U.K","U.K","U.K","HOL","E.G","BEL","YUG","ARG","BRA","ALG"
1 "INT. MILAN","JUVENTUS","BARCELONA","FC COLOGNE","BORUSIA MG","MONACO","MAN UTD","TOTTENHAM","CELTIC","DYN. KIEV","DYN BERLIN","STEAUA B.","GOTHENBURG","RIVER PLT.","FLUMINESE","FAR RABAT"
1 "HOW MUCH TO REPAY `";
1 "HOW MUCH TO GET `";
1 "GOALKEEPER";
1 "DO YOU WISH TO ALTER YOUR TEAM'S"''"NAME (Y/N) ?"
1 "DEFENCE";
1 "CHANGE TO D,M OR A - ";
1 "BRADSHAW","DILLON","BENNETT","CARR","GRIFITHS","PEACOCK","WILLIAMS","DAVIES","GILES","HOLTHAM","JONES","MANN","MORGAN","OSBORNE","SMITH","COLLINS","EVANS","PREECE","TAYLOR","THOMPSON"
1 "9.9999999"
1 "9";N$(Q(X));" ";X$:
1 "9");" (";
1 "8";"6. TOTTENHAM"
1 "8";"5. RANGERS"''
1 "8";"4. MAN UTD"''
1 "8";"3. LIVERPOOL"''
1 "8";"2. CELTIC"''
1 "8";"1. ARSENAL"''
1 "7";("HOME TO "
1 "7";"PENALTY SHOOT OUT",:
1 "7";"CASH `";CASH
1 "7";" PLAYER PERFORMANCES ":
1 "64"+NUM):
1 "6000"/DIV)*PLYRS)+
1 "6000"/DIV)):
1 "6";X$;"'S TOP SCORERS",:
1 "6";X$;" DRAW",:
1 "6";T$(TEAM);" ";
1 "6";D$(OPP);" ";
1 "6";''Z$;,''
1 "6";"YOU CANNOT ALTER GOALKEEPERS",:
1 "6";"WORLD LEAGUE DIV ";DIV;" - WEEK ";WKS,:
1 "6";"SENT OFF - ";X$;" (";TIME;" MIN)",
1 "6";"SENT OFF - ";H$(X,
1 "6";"RELEGATED TO DIVISION 2",'':
1 "6";"PROMOTED TO DIVISION 1",'':
1 "6";"NO RATING CAN BE CALCULATED FOR",'"PLAYERS WHO HAVE BEEN TAKEN OFF",''
1 "6";"NO CLUB IS PRESENTLY INTERESTED",:
1 "6";"NEXT MATCH - ";("HOME"
1 "6";"LEADING POSITIONS",'':
1 "6";"INPUT A PLAYER NUMBER TO SELL",
1 "6";"FIXTURE LIST FOR ";A$,''
1 "6";"FINAL TABLE - DIVISION ";DIV,:
1 "6";"BOTTOM TWO TEAMS IN THE LEAGUE",'':
1 "6";" INCOME/EXPENDITURE "
1 "6"))-LOAN):
1 "500000"*(
1 "5";" ";:
1 "48"+RNDE)
1 "45000"+((TSK/13
1 "40000"*RNDE*RNDE):
1 "40")''"MAX. AVAILABLE","- `";MAXLOAN'''"CURRENT CASH","- `";CASH
1 "4";S$(X);:
1 "4";S$(X);
1 "4",N1)=X(
1 "350000"/DIV)
1 "32"/RNDE):
1 "3";D$(Q1);
1 "3",N2)=X:
1 "3",N1)=X(
1 "3");"DIV ";O3
1 "3");"DIV ";DIV
1 "3");" * ";B$(
1 "3");" * ";B$(
1 "3");" * ";B$(
1 "3");" * ";B$(
1 "3");" * ";B$(
1 "3")+D(TMYX):
1 "3")+D(IY)
1 "3")+D(HX);
1 "29";F$(X):
1 "29";F$(X)
1 "29";(W(Q1)*3
1 "28";"(";HS;")"
1 "28";"(";HALFH;")"
1 "28";"(";HALFA;")"
1 "28";"(";AS;")"
1 "27";K(X);:
1 "26";A(Q1);
1 "26";"RATING";
1 "26";"MAX 15"
1 "26";" 0.00";
1 "25000"+((TSK/13
1 "25";W(IY)'"DREW";
1 "25";L(IY)''"GOALS FOR";
1 "25";F(IY)'"GOALS AGAINST";
1 "25";D(IY)'"LOST";
1 "25";A(IY)''"POINTS";
1 "25";(W(IY)*
1 "23";F(Q1);
1 "20000"/DIV)*((
1 "20";L(Q1);
1 "20";("+ `"
1 "20";"---------";'
1 "20";"---------"''
1 "20";"- `";WG
1 "20";"- `";REP:
1 "20";"- `";POL
1 "20";"- `";GR
1 "20";"+ `";GATE
1 "2.1"*R(NO)))):
1 "2";A$;" F.C. TEAM LISTING",''
1 "2";'" DIFFICULTY LEVEL",
1 "2";'" SELECT A TEAM",:
1 "2";'" YOUR SQUAD",''
1 "2";"WORLD SOCCER LEAGUE",:
1 "2";"TIME - ";TIME;" MINUTES":
1 "2";"SELECT AN OPTION",:
1 "2";"SEASON ";SEAS;" - DIVISION ";DIV;,
1 "2";"MAN OF THE MATCH - ";S$(PLA),:
1 "2";"MAIN MENU":
1 "2";"M-MENU C-CHANGE A-ALTER POSITION"
1 "2";"CURRENT BALANCE `";CASH,
1 "2";"BOOKED - ";X$;" (";TIME;" MIN)",
1 "2";"BOOKED - ";H$(X,
1 "2";"ATT-";ATT:
1 "2";"ATT-";ATT
1 "2";" OTHER SCORES "''
1 "2";" BANK ":
1 "2"/DIVE)*
1 "2",N2)=X:
1 "2",N1)=X(
1 "2");B$;" (";G$(OPP+((DIV-
1 "2")+S(X)-
1 "19";"SKILL LEVEL ";DIFF;
1 "18";N(X);
1 "18";"ERRORS";
1 "17";S$(PLA);" (";TIME;")";
1 "17";H$(X,
1 "17";D(Q1);
1 "17";"GOAL - ";TIME;" MINS";
1 "17";"GOAL - ";
1 "17")=T$(TEAM):
1 "17")=G$(TEAM):
1 "16";X;" ";N$(Q(X));" ";S$(X):
1 "16";K(X);:
1 "16";"SCORED ";HP;"-";AP:
1 "16";"SAVED ";HP;"-";AP:
1 "16";"MISSED ";HP;"-";AP:
1 "16")+Y)=T$((((X-
1 "16"));")",
1 "141"-TEAM)/
1 "141"-(OPP+((DIVX-
1 "141"-(O1+((DIVX-
1 "14";W(Q1);
1 "14";W(HX);
1 "14";L(HX);
1 "14";F(HX);
1 "14";D(HX);
1 "14";A(HX);
1 "14";(W(HX)*
1 "14";"W D L F A Pts":
1 "13";G(Y);
1 "120000"+(
1 "11";M(X);
1 "11";"POINTS";
1 "11";"GOOD";
1 "11";"GOALS GAMES":
1 "11";"(";HS;")";
1 "11";"(";HALFH;")";
1 "11";"(";HALFA;")";
1 "11";"(";AS;")";
1 "11")="S":
1 "11")="B":
1 "1000000":
1 "1000000"/DIV):
1 "10");X;". ";T$(X),:
1 "1";Y$;" ";,
1 "1";S$(X);" ";
1 "1";(" UNUSED SUBSTITUTES "
1 "1";"PRESS [S] TO BRING ON A SUB",:
1 "1";"PRESS [S] TO BRING ON A SUB",
1 "1";"OVERALL PROFIT/LOSS ";:
1 "1";"OPPONENTS F-A ATT F-A ATT",:
1 "1";"DIVISION ";X
1 "1";"- `";
1 "1";"+ `";PRO,
1 "1";" BECAUSE HE HAS"''"ACCUMULATED 10 PENALTY POINTS.":
1 "1",N2)=X:
1 "1",N1)=X(
1 "1");("AWAY"
1 "1");("AWAY TO "
1 "1");(" "
1 "1"''"WON";
1 "0.5"))*HA):
1 "0.0005")*
1 "0";X$;" BID `";FEE;"000 FOR HIM",
1 "0";S$(X);
1 "0";S$(PLA);" (";TIME;")";
1 "0";B$;" ARE SHOOTING.";:
1 "0";B$;" ARE IN POSSESSION",
1 "0";A$,T$(OPP):
1 "0";,,,,,,,,,,,,:
1 "0";"YOU WON ";HP;"-";AP;" ON PENALTIES",
1 "0";"YOU ONLY HAVE `";CASH:
1 "0";"YOU LOST ";AP;"-";HP;" ON PENALTIES",
1 "0";"YOU HAVE BEEN TURNED DOWN",:
1 "0";"UBSTITUTION",
1 "0";"TOP TWO TEAMS GET PROMOTED"
1 "0";"THERE IS ALREADY A TEAM CALLED",''T$(TEAM),:
1 "0";"SUDDEN DEATH SHOOT-OUT":
1 "0";"SCORED ";HP;"-";AP:
1 "0";"SAVED ";HP;"-";AP:
1 "0";"PRESS ENTER TO WATCH THEIRS",
1 "0";"PRESS ENTER TO TAKE YOUR PENALTY"
1 "0";"PRESS ENTER TO KICK OFF",:
1 "0";"PLAYER SHOOTING - ";S$(Z(3
1 "0";"P - PLAY GAME"'" C - CHECK TEAM"'" E - EDIT NAMES"'" B - BANK"'" F - FIXTURE LIST"'" L - LEAGUE TABLES"'" O - OPPONENTS DATA"'" S - SELL A PLAYER"'" T - TRANSFER MARKET"'" 1 - SAVE TO TAPE"
1 "0";"MISSED ";HP;"-";AP:
1 "0";"LTER POSITIONS",
1 "0";"LAY GAME ";
1 "0";"INPUT YOUR BID FOR HIM":
1 "0";"INPUT NEW NAME (MAX 10 LETTERS)":
1 "0";"HANGE TEAM ";
1 "0";"GOAL - ";TIME;" MINS";
1 "0";"GOAL - ";;
1 "0";"GATE MONEY";
1 "0";"DO YOU ACCEPT (Y/N) ?"
1 "0";"DIV ";O3;
1 "0";"DIV ";DIV;
1 "0";"C - CONTINUE"
1 "0";"BOTTOM TWO TEAMS GET RELEGATED"
1 "0";"BANK INTEREST";
1 "0";".............",".............":
1 "0";".............",".............",
1 "0";" OUT FOR ";O(X);" GAME";("S "
1 "0";" SUBSTITUTES",,
1 "0";" RESERVES",,
1 "0");("OPPONENTS - "
1 "0");("NEUTRAL VENUE"
1 COPYRIGHT E & J SOFTWARE 1989":